home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 3 #5 / Commodore_Disk_User_Vol.3_5_1990_-.d64 / video programmer (.txt) < prev   
Commodore BASIC  |  2022-10-26  |  4KB  |  180 lines
  1. 10 rem*video recording planner*
  2. 20 rem*written by r.r.davey nov 1989*
  3. 30 open15,8,15,"i":close15
  4. 40 rem ***********
  5. 50 rem * colours *
  6. 60 rem ***********
  7. 70 bd=53280:bk=53281
  8. 80 og$=chr$(27)+chr$(114)+chr$(5)
  9. 90 gr$=chr$(27)+chr$(114)+chr$(6)
  10. 100 bk$=chr$(27)+chr$(114)+chr$(0)
  11. 110 rem *****************
  12. 120 rem * record format *
  13. 130 rem *****************
  14. 140 l1$="[221][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][221][183][183][183][183][183][183][183][221][183][221][183][221][183][221]"
  15. 150 l2$="[183][221][183][221][183][221][183][221][183][221][183][221][183][221][183][221][183][221][183][221][183][221][183][221][183][221]"
  16. 160 l3$="[221][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][221][164][164][164][164][164][164][164][221][164][221][164][221][164][221]"
  17. 170 l4$="[164][221][164][221][164][221][164][221][164][221][164][221][164][221][164][221][164][221][164][221][164][221][164][221][164][221]"
  18. 180 rem ******************
  19. 190 rem * planner format *
  20. 200 rem ******************
  21. 210 l5$="[221][163][163][163][163][163][163][221][163][163][163][163][221][163][163][163][163][163][221][163][163][163][163][163][163][221][163][163][163][163][163][221][163][163][163][163][163][163][163][221]"
  22. 220 l6$="[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][221]"
  23. 230 l7$="[221][164][164][164][164][164][164][221][164][164][164][164][221][164][164][164][164][164][221][164][164][164][164][164][164][221][164][164][164][164][164][221][164][164][164][164][164][164][164][221]"
  24. 240 l8$="[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][221]"
  25. 250 goto550
  26. 260 rem ****************
  27. 270 rem * audio signal *
  28. 280 rem ****************
  29. 290 sa=54272
  30. 300 forl=0to24:pokesa+l,0:next
  31. 310 pokesa+1,50
  32. 320 pokesa+5,11
  33. 330 pokesa+15,30
  34. 340 pokesa+24,10
  35. 350 l=1:pokesa+4,21
  36. 360 fort=1to1000:next:pokesa+4,20
  37. 370 fort=1to50:next
  38. 380 return
  39. 390 rem *****************
  40. 400 rem * reset printer *
  41. 410 rem *****************
  42. 420 printchr$(147)
  43. 430 poke214,6:printchr$(145):poke211,7
  44. 440 print"if nlq type style is used"
  45. 450 poke214,9:printchr$(145):poke211,13
  46. 460 print"reset printer"
  47. 470 poke214,15:printchr$(145):poke211,8
  48. 480 print"press 'space' when ready";xx$
  49. 490 getxx$:ifxx$=""then490
  50. 500 ifxx$<>chr$(32)thengoto490
  51. 510 return
  52. 520 rem *************
  53. 530 rem * main menu *
  54. 540 rem *************
  55. 550 pokebd,7:pokebk,6:printchr$(147):poke214,8:printchr$(145)
  56. 560 poke211,7:printchr$(158)"1. select type of printer"
  57. 570 poke214,10:printchr$(145):poke211,7
  58. 580 printchr$(30)"2. print planner sheet"
  59. 590 poke214,12:printchr$(145):poke211,7
  60. 600 printchr$(150)"3. print record sheet"
  61. 610 poke214,14:printchr$(145):poke211,7
  62. 620 printchr$(154)"4. exit"
  63. 630 print"     ensure printer is switched 'on'      "
  64. 640 print"[145]      and paper and ribbon in place     [146]"
  65. 650 poke214,6:printchr$(145):poke211,3
  66. 660 print"[155][166][166][166][166][166][166][166][166][166][166][166] main menu [146][155][166][166][166][166][166][166][166][166][166][166][166][166]"
  67. 670 forl=1to9:printtab(3)"[166]"spc(32)"[166]":next
  68. 680 poke214,16:printchr$(145):poke211,3
  69. 690 print"[155][166][166][166][166][166][166][166][166][166] select  option [146][155][166][166][166][166][166][166][166][166][166]"
  70. 700 getk$:ifk$=""then700
  71. 710 k=val(k$)
  72. 720 ifk<1ork>4thengosub290:goto700
  73. 730 onkgoto770,1410,1010,1680
  74. 740 rem *****************
  75. 750 rem * printer types *
  76. 760 rem *****************
  77. 770 pokebd,5:pokebk,6:printchr$(147):poke214,6:printchr$(145):poke211,13
  78. 780 print"[152]c[146]ommodore."
  79. 790 poke214,8:printchr$(145):poke211,13
  80. 800 print"[156]s[146]tar."
  81. 810 poke214,10:printchr$(145):poke211,13
  82. 820 print"star col[146]lor"
  83. 830 poke214,12:printchr$(145):poke211,13
  84. 840 print"[158]e[146]xit."
  85. 850 poke214,3:printchr$(145):poke211,7
  86. 860 print"[155][166][166][166][166][166][166][166]  printer  [146][155][166][166][166][166][166][166][166][166]"
  87. 870 forl=1to11:printtab(7)"[166]"spc(24)"[166]":next
  88. 880 poke214,14:printchr$(145):poke211,7
  89. 890 print"[155][166][166][166][166][166]  select  type  [146][155][166][166][166][166][166]"
  90. 900 poke214,18:printchr$(145):poke211,10
  91. 910 printchr$(5)"select (c s l e)";:inputa$
  92. 920 pt=0
  93. 930 fori=1to4
  94. 940 ifa$=mid$("csle",i,1)thenpt=i
  95. 950 nexti
  96. 960 ifpt<1orpt>4thengosub290:goto900
  97. 970 onptgoto550,550,550,1680
  98. 980 rem ****************
  99. 990 rem * record sheet *
  100. 1000 rem****************
  101. 1010 open1,4
  102. 1020 print#1,chr$(27)+chr$(99)+chr$(2)
  103. 1030 print#1,chr$(14)
  104. 1040 ifa$=chr$(76)thengoto1060
  105. 1050 goto1080
  106. 1060 print#1.og$
  107. 1070 print#1,"            programme record":print#1,bk$:print#1:goto1090
  108. 1080 print#1,"            programme record":print#1
  109. 1090 print#1,chr$(15)
  110. 1100 print#1,"            programme name            counter     programme length"
  111. 1110 print#1,"               and type               on/off 0       1       2";
  112. 1120 print#1,"       3       4"
  113. 1130 forg=1to9
  114. 1140 print#1,l1$+l2$
  115. 1150 print#1,l3$+l4$
  116. 1160 nextg
  117. 1170 ifa$=chr$(67)then1190
  118. 1180 ifa$=chr$(83)ora$=chr$(76)then1200
  119. 1190 print#1,chr$(14):goto1210
  120. 1200 print#1,chr$(27);chr$(104);chr$(1)
  121. 1210 fornu=1to12
  122. 1220 print#1,nu;:next
  123. 1230 ifa$=chr$(67)then1250
  124. 1240 goto1260
  125. 1250 print#1,chr$(15):goto1270
  126. 1260 print#1,chr$(27);chr$(64)
  127. 1270 close1
  128. 1280 x$=" "
  129. 1290 printchr$(147)
  130. 1300 poke214,6:printchr$(145):poke211,9
  131. 1310 print"another copy (y/n)";x$
  132. 1320 getx$:ifx$=""then1320
  133. 1330 ifx$<>chr$(89)andx$<>chr$(78)thengosub290:goto1280
  134. 1340 ifx$=chr$(78)thengoto30
  135. 1350 ifa$=chr$(76)ora$=chr$(83)thengoto1370
  136. 1360 goto1010
  137. 1370 ifx$=chr$(89)thengosub420:goto1010
  138. 1380 rem *****************
  139. 1390 rem * planner sheet *
  140. 1400 rem *****************
  141. 1410 open1,4
  142. 1420 print#1,chr$(27)+chr$(99)+chr$(2)
  143. 1430 print#1,chr$(14)
  144. 1440 ifa$=chr$(76)thengoto1460
  145. 1450 goto1480
  146. 1460 print#1,gr$
  147. 1470 print#1,"           programme planner":print#1,bk$:print#1:goto1490
  148. 1480 print#1,"           programme planner":print#1
  149. 1490 print#1,chr$(15)
  150. 1500 print#1,"  date   ch  am/pm   on   am/pm   off     programme name/";
  151. 1510 print#1,"synopsis/duration"
  152. 1520 forg=1to10
  153. 1530 print#1,l5$+l6$
  154. 1540 print#1,l7$+l8$
  155. 1550 nextg
  156. 1560 close1
  157. 1570 x$=" "
  158. 1580 printchr$(147)
  159. 1590 poke214,6:printchr$(145):poke211,9
  160. 1600 print"another copy (y/n)";x$
  161. 1610 getx$:ifx$=""then1610
  162. 1620 ifx$<>chr$(89)andx$<>chr$(78)thengosub290:goto1570
  163. 1630 ifx$=chr$(78)thengoto30
  164. 1640 goto1410
  165. 1650 rem ****************
  166. 1660 rem * exit routine *
  167. 1670 rem ****************
  168. 1680 printchr$(147)chr$(154)
  169. 1690 poke214,6:printchr$(145):poke211,7
  170. 1700 input"press (q)uit or (m)enu ";r$
  171. 1710 ifr$<>chr$(81)andr$<>chr$(77)thengosub290:goto1680
  172. 1720 ifr$=chr$(77)then550
  173. 1730 printchr$(147)chr$(155)
  174. 1740 poke214,9:printchr$(145):poke211,7
  175. 1750 input"are you sure-quit? (y/n) ";s$
  176. 1760 ifs$<>chr$(89)ands$<>chr$(78)thengosub290:goto1740
  177. 1770 ifs$=chr$(89)thensys64738
  178. 1780 ifs$=chr$(78)thengoto550
  179. 1790 end
  180.